Attribute VB_Name = "Program"
Public Sub UnitTest()
    Dim oMSComm As Object
    'Set oMSComm = CreateObject("MSCOMMLib.MSComm")
    'Dim oOpaciMeter As New Opacimeter
    'oOpaciMeter.BatDauTimer
    
    Dim MSCommTest As MSComm
    Set MSCommTest = New MSComm
    
    
    Dim oHeadLight As New HeadLight
    oHeadLight.BatDauTimer
    
End Sub



